home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 109 / Ultra Gameplayers 109.iso / pc / media / new_ugp.dxr / 00054_Credits Menu Init.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  1.8 KB  |  50 lines
  1. on exitFrame
  2.   set newMenu to CreateMenu([#statusMessage: "The editors Holiday demands revealed!"])
  3.   set minorListSprite to 15
  4.   set majorsSpriteList to [7, 8, 9, 10, 11, 12]
  5.   SetStatusMember(newMenu, [#statusMember: "credits status"])
  6.   mmButton(newMenu, [#downMember: "ugpI_61"])
  7.   quitButton(newMenu, [#downMember: "ugpI_71"])
  8.   ShowVolumeControl()
  9.   NewVideoDisplay(newMenu, [#cleanup: 1])
  10.   InitMajorCredits(newMenu, majorsSpriteList)
  11.   InitMinorCredits()
  12.   set the cursor of sprite 4 to [381, 382]
  13.   cursor(-1)
  14. end
  15.  
  16. on InitMajorCredits newMenu, majorsSpriteList
  17.   global titleDatabase
  18.   set majorsDataList to getrecords(titleDatabase, #majors, "credits")
  19.   if not listp(majorsDataList) then
  20.     put "No major credits"
  21.   else
  22.     set listMax to min(count(majorsSpriteList), count(majorsDataList))
  23.     put "There are" && listMax && "majors"
  24.     repeat with index = 1 to listMax
  25.       set major to getAt(majorsDataList, index)
  26.       set majorSprite to getAt(majorsSpriteList, index)
  27.       set the text of member ("ugpI name " & index) to the name of major
  28.       set button to BasicButton(newMenu, [#hotSprites: [majorSprite], #statusMessage: "Find out what" && the name of major && "won't get for Christmas."])
  29.       AddDown(button, NewObject(newMenu, "Game Actions Class", [#gameRec: major]))
  30.     end repeat
  31.   end if
  32. end
  33.  
  34. on InitMinorCredits
  35.   global titleDatabase
  36.   set minorsDataList to getrecords(titleDatabase, #minors, "credits")
  37.   if not listp(minorsDataList) then
  38.     put "No minor credits"
  39.   else
  40.     set listMax to count(minorsDataList)
  41.     set minorListText to EMPTY
  42.     put "There are" && listMax && "minors"
  43.     repeat with index = 1 to listMax
  44.       set minor to getAt(minorsDataList, index)
  45.       set minorListText to minorListText & the name of minor & RETURN
  46.     end repeat
  47.     set the text of member "ugpI minor credits" to minorListText
  48.   end if
  49. end
  50.